home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00120.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  462 b   |  20 lines

  1. on mouseUp
  2.   global lightswitch2, gobackto, spriteloo
  3.   if lightswitch2 = 1 then
  4.     puppetSprite(spriteloo, 1)
  5.     set the cursor of sprite spriteloo to [565, 566]
  6.     spriteBox(spriteloo, 0, 0, 640, 480)
  7.     set lightswitch2 to 0
  8.     go("big2")
  9.     exit
  10.   end if
  11.   if lightswitch2 = 0 then
  12.     puppetSprite(spriteloo, 0)
  13.     set lightswitch2 to 1
  14.     set the visible of sprite 3 to 0
  15.     set the visible of sprite 3 to 1
  16.     go(gobackto)
  17.     exit
  18.   end if
  19. end
  20.